home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9210a.d64 / shoot or die (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 X$="":Y$=""
  2. 2 F$="WELCOME TO > SHOOT OR DIE < BY F.T.     ":F$=F$+F$:POKE53280,0:POKE53281,0
  3. 3 S=54272:X=19:Y=1:X1=-1:K=19:PRINT"[147]";LEFT$(Y$,11);:D=10:U=1984:POKES+24,15
  4. 4 FORI=1TO40:PRINTMID$(F$,I,40);"[145]";:FORJ=0TO35:NEXT:GETA$:IFA$=""THENNEXT:GOTO4
  5. 5 POKES+5,0:POKES+1,80:B=0:P=0:Y=1:X=19:K=19:PRINT"[147]"TAB(26)"HISCORE:"H:GOTO15
  6. 6 FORI=0TOAZ:A=RND(1)*920:POKE1064+A,86:POKE55336+A,13:POKEC,0:POKEC,17:NEXT
  7. 7 X2=0:Y1=0:IFPEEK(1024+X+X1+Y*40)<>86ANDX+X1>-1ANDX+X1<40THEN9
  8. 8 X1=-X1:IFPEEK(1024+X+40*(Y+1))<>86ANDY+Y1<24THENY1=1:X2=-X1
  9. 9 POKE1024+X+40*Y,32:Y=Y+Y1:X=X+X1+X2:POKE1024+X+40*Y,81:IFY=24THEN17
  10. 10 O=PEEK(56320):A=((255-OAND12)-6)/2:IFA=-3ORK+A<0ORK+A>38THENA=0
  11. 11 POKEU+K,32:K=K+A:POKEU+K,113:IFO=111ANDGE=0THEND=D+1:GE=1:MX=K:MY=20:GOTO19
  12. 12 ONGE+1GOTO7:PRINT""LEFT$(X$,MX)LEFT$(Y$,MY+1)" [157] [157] [157] ";:MY=MY-4
  13. 13 GE=0:ONSGN(MY)+2GOTO7:GE=1:PRINT""LEFT$(X$,MX)LEFT$(Y$,MY+1)"^[157]^[157]^[157]^";
  14. 14 ON-(X<>MX)OR-(Y<MY)OR-(Y>MY+8)GOTO7:B=B+1:X=19:Y=1:P=P+((25-D)AND31):GOTO20
  15. 15 C=S+4:AZ=(D*5):D=0:PRINT"PUNKTE:"PTAB(13)"BOMBS:"100-B"[157] ":POKES+5,0
  16. 16 ON-(B<100)GOTO6:F$="CONGRATULATIONS !  YOU SAVED PLANTO!    ":F$=F$+F$
  17. 17 IFP>HTHENH=P:PRINT"    CONGRATULATIONS ! NEW HI-SCORE !    "
  18. 18 ON-(B=100)GOTO3:POKE198,0:WAIT198,1:D=10:GOTO5
  19. 19 POKES+2,128:POKES+5,10:POKES+1,2:POKEC,0:POKEC,65:GOTO12
  20. 20 POKES+5,11:POKES+1,2:POKEC,0:POKEC,129:FORI=0TO2000:NEXT:POKES+1,80:GOTO15
  21.